      * cobc -x ordenar_using_giving.cbl -o ordenar_using_giving.exe
      ******************************************************************
       IDENTIFICATION DIVISION.
      ******************************************************************
       PROGRAM-ID. ordenar_using_giving.       

      ******************************************************************
       ENVIRONMENT DIVISION.
      ******************************************************************
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
        SELECT ArchivoEntrada ASSIGN TO "ENTRADA.DAT"
        ORGANIZATION IS LINE SEQUENTIAL.
        SELECT ArchivoSalida ASSIGN TO "SALIDA_USING_GIVING.DAT"
        ORGANIZATION IS LINE SEQUENTIAL.
        SELECT ArchivoOrdenado ASSIGN SORTWORK.


      ******************************************************************
       DATA DIVISION.
      ******************************************************************
      *****************************************************
       FILE SECTION.
      *****************************************************
        FD ArchivoEntrada.
        01 RegistroEntrada.
           03 Nombre PIC X(8).

        FD ArchivoSalida.
        01 RegistroSalida.
           03 Nombre PIC X(8).

        SD ArchivoOrdenado.
        01 RegistroOrdenado.
           03 Nombre PIC X(8).
      *****************************************************
       WORKING-STORAGE SECTION.
      *****************************************************

      ******************************************************************
       PROCEDURE DIVISION.
      ******************************************************************
       Begin.
         SORT ArchivoOrdenado ON ASCENDING KEY Nombre OF ArchivoOrdenado
           USING ArchivoEntrada GIVING ArchivoSalida.
         STOP RUN.
